home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / QuickTime™ 1.0 Interfaces / ImageCompression.lisp < prev    next >
Encoding:
Text File  |  1993-09-16  |  35.1 KB  |  671 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :TRAPS)
  3. ; 
  4. ; Created: Tuesday, August 13, 1991 at 4:31 PM
  5. ;  ImageCompression.p
  6. ;  Pascal Interface to the Macintosh Libraries
  7. ; 
  8. ;  Copyright Apple Computer, Inc. 1991
  9. ;  All rights reserved
  10. ; 
  11.  
  12. ; $IFC UNDEFINED UsingIncludes
  13. ; $SETC UsingIncludes := 0
  14. ; $ENDC
  15.  
  16. ; $IFC NOT UsingIncludes
  17.  
  18. ; $ENDC
  19.  
  20. ; $IFC UNDEFINED UsingImageCompression
  21. ; $SETC UsingImageCompression := 1
  22.  
  23. ; $I+
  24. ; $SETC ImageCompressionIncludes := UsingIncludes
  25. ; $SETC UsingIncludes := 1
  26. ; $IFC UNDEFINED UsingQuickDraw
  27.  
  28. (require-interface 'QUICKDRAW)  ; $I $$Shell(PInterfaces)QuickDraw.p
  29. ; $ENDC
  30. ; $IFC UNDEFINED UsingQDOffscreen
  31.  
  32. (require-interface 'QDOFFSCREEN); $I $$Shell(PInterfaces)QDOffscreen.p
  33. ; $ENDC
  34. ; $IFC UNDEFINED UsingTypes
  35.  
  36. (require-interface 'TYPES)      ; $I $$Shell(PInterfaces)Types.p
  37. ; $ENDC
  38. ; $IFC UNDEFINED UsingComponents
  39.  
  40. (require-interface 'COMPONENTS) ; $I $$Shell(PInterfaces)Components.p
  41. ; $ENDC
  42. ; $IFC UNDEFINED UsingStandardFile
  43.  
  44. (require-interface 'STANDARDFILE); $I $$Shell(PInterfaces)StandardFile.p
  45. ; $ENDC
  46. ; $SETC UsingIncludes := ImageCompressionIncludes
  47.  
  48. (defconstant $gestaltCompressionMgr :|icmp|)
  49.  
  50. ;  These are the bits that are set in the Component flags, and also in the codecInfo struct. 
  51.  
  52. (defconstant $codecInfoDoes1 #X1);  codec can work with 1-bit pixels 
  53. (defconstant $codecInfoDoes2 #X2);  codec can work with 2-bit pixels 
  54. (defconstant $codecInfoDoes4 #X4);  codec can work with 4-bit pixels 
  55. (defconstant $codecInfoDoes8 #X8);  codec can work with 8-bit pixels 
  56. (defconstant $codecInfoDoes16 #X10);  codec can work with 16-bit pixels 
  57. (defconstant $codecInfoDoes32 #X20);  codec can work with 32-bit pixels 
  58. (defconstant $codecInfoDoesDither #X40);  codec can do ditherMode 
  59. (defconstant $codecInfoDoesStretch #X80);  codec can stretch to arbitrary sizes 
  60. (defconstant $codecInfoDoesShrink #X100);  codec can shrink to arbitrary sizes 
  61. (defconstant $codecInfoDoesMask #X200);  codec can mask to clipping regions 
  62.  
  63. (defconstant $codecInfoDoesTemporal #X400);  codec can handle temporal redundancy 
  64.  
  65. (defconstant $codecInfoDoesDouble #X800);  codec can stretch to double size exactly 
  66. (defconstant $codecInfoDoesQuad #X1000);  codec can stretch to quadruple size exactly 
  67. (defconstant $codecInfoDoesHalf #X2000);  codec can shrink to half size 
  68. (defconstant $codecInfoDoesQuarter #X4000);  codec can shrink to quarter size 
  69.  
  70. (defconstant $codecInfoDoesRotate #X8000);  codec can rotate on decompress 
  71. (defconstant $codecInfoDoesHorizFlip #X10000);  codec can flip horizontally on decompress 
  72. (defconstant $codecInfoDoesVertFlip #X20000);  codec can flip vertically on decompress 
  73. (defconstant $codecInfoDoesSkew #X40000);  codec can skew on decompress 
  74. (defconstant $codecInfoDoesBlend #X80000);  codec can blend on decompress 
  75. (defconstant $codecInfoDoesWarp #X100000);  codec can warp arbitrarily on decompress 
  76. (defconstant $codecInfoDoesRecompress #X200000);  codec can recompress image without accumulating errors 
  77. (defconstant $codecInfoDoesSpool #X400000);  codec can spool image data 
  78.  
  79. (defconstant $codecInfoDepth1 #X1);  compressed data at 1 bpp depth available 
  80. (defconstant $codecInfoDepth2 #X2);  compressed data at 2 bpp depth available 
  81. (defconstant $codecInfoDepth4 #X4);  compressed data at 4 bpp depth available 
  82. (defconstant $codecInfoDepth8 #X8);  compressed data at 8 bpp depth available 
  83. (defconstant $codecInfoDepth16 #X10);  compressed data at 16 bpp depth available 
  84. (defconstant $codecInfoDepth32 #X20);  compressed data at 32 bpp depth available 
  85. (defconstant $codecInfoDepth24 #X40);  compressed data at 24 bpp depth available 
  86. (defconstant $codecInfoDepth33 #X80);  compressed data at 1 bpp monochrome depth  available 
  87. (defconstant $codecInfoDepth34 #X100);  compressed data at 2 bpp grayscale depth available 
  88. (defconstant $codecInfoDepth36 #X200);  compressed data at 4 bpp grayscale depth available 
  89. (defconstant $codecInfoDepth40 #X400);  compressed data at 8 bpp grayscale depth available 
  90. (defconstant $codecInfoStoresClut #X800);  compressed data can have custom cluts 
  91. (defconstant $codecInfoDoesLossless #X1000);  compressed data can be stored in lossless format 
  92.  
  93. (defconstant $codecFlagUseImageBuffer #X1);  (input) allocate buffer for whole image on decompress sequence 
  94. (defconstant $codecFlagUseScreenBuffer #X2);  (input) allocate buffer for screen on decompress sequence for faster updates 
  95. (defconstant $codecFlagUpdatePrevious #X4);  (input) udate previous buffer on compress sequence 
  96. (defconstant $codecFlagNoScreenUpdate #X8);  (input) dont update screen, but do update image buffer if allocated 
  97. (defconstant $codecFlagWasCompressed #X10);  (input) hint to compressor that image was previously compressed 
  98. (defconstant $codecFlagDontOffscreen #X20);  (input) return error instead of automatically going offscreen 
  99. (defconstant $codecFlagUpdatePreviousComp #X40);  (input) udate previous buffer on compress sequence 
  100. (defconstant $codecFlagForceKeyFrame #X80);  (input) when sent to CompressSequenceFrame, forces that frame to be a key frame 
  101. (defconstant $codecFlagOnlyScreenUpdate #X100);  (input) only update screen from 
  102. (defconstant $codecFlagLiveGrab #X200);  (input) data being compressed is from live source (speed is critical) 
  103.  
  104. (defconstant $codecFlagUsedNewImageBuffer #X4000);  (output) indicates that image buffer was first used on this decompress sequence 
  105. (defconstant $codecFlagUsedImageBuffer #X8000);  (output) indicates that image buffer was used on this decompress sequence 
  106.  
  107. (defconstant $codecErr -8960)   ;  the codec returned an error 
  108. (defconstant $noCodecErr -8961) ;  the specified codec could not be found 
  109. (defconstant $codecUnimpErr -8962);  this feature is not implemented by the specified codec 
  110. (defconstant $codecSizeErr -8963)
  111. (defconstant $codecScreenBufErr -8964);  the screen buffer could not be allocated 
  112. (defconstant $codecImageBufErr -8965);  the image buffer could not be allocated 
  113. (defconstant $codecSpoolErr -8966);  the compressed data must be in memory (spooling did not work) 
  114. (defconstant $codecAbortErr -8967);  the operation was aborted by the progress proc 
  115. (defconstant $codecWouldOffscreenErr -8968);  an offscreen access would have been used, but wasn't allowed because codecFlagDontOffscreen was set 
  116. (defconstant $codecBadDataErr -8969);  compressed data was found to have inconsistencies 
  117. (defconstant $codecDataVersErr -8970);  compressed data was of a format version that codec couldn't handle 
  118. (defconstant $codecConditionErr -8972);  codec can not do requested operation 
  119. (defconstant $codecOpenErr -8973);  the codec  could not be opened 
  120.  
  121. (defconstant $codecMinimumDataSize 32768);  The minimum data size for spooling in or out data 
  122.  
  123. (defconstant $compressorComponentType :|imco|);  the type for "Components" which compress images 
  124. (defconstant $decompressorComponentType :|imdc|);  the type for "Components" which decompress images 
  125.  
  126. (def-mactype :COMPRESSORCOMPONENT (find-mactype :POINTER));  a Component which compresses images 
  127. (def-mactype :DECOMPRESSORCOMPONENT (find-mactype :POINTER));  a Component which decompresses images 
  128. (def-mactype :CODECCOMPONENT (find-mactype :POINTER));  a Component which decompresses or compresses images 
  129.  
  130. (def-mactype :SBOOLEAN (find-mactype :SIGNED-INTEGER));  to make sure stack frames are right 
  131.  
  132. (def-mactype :CODECTYPE (find-mactype :OSTYPE));  type descriptor for codecs i.e: 'appl','jpeg','rle ' 
  133.  
  134. (def-mactype :CODECFLAGS (find-mactype :SIGNED-INTEGER));  flags for codec manager calls 
  135.  
  136. (def-mactype :CODECQ (find-mactype :SIGNED-LONG))
  137. (def-mactype :DATAPROCPTR (find-mactype :POINTER))
  138. (def-mactype :FLUSHPROCPTR (find-mactype :POINTER))
  139.  
  140. (defconstant $codecLosslessQuality #X400)
  141. (defconstant $codecMaxQuality #X3FF)
  142. (defconstant $codecMinQuality #X0)
  143. (defconstant $codecLowQuality #X100)
  144. (defconstant $codecNormalQuality #X200)
  145. (defconstant $codecHighQuality #X300)
  146.  
  147. (defconstant $anyCodec 0)       ;  take first working codec of given type 
  148. (defconstant $bestSpeedCodec -1);  take fastest codec of given type 
  149. (defconstant $bestFidelityCodec -2);  take codec which is most accurate
  150. (defconstant $bestCompressionCodec -3);  take codec of given type that is most accurate 
  151.  
  152. (defconstant $codecCompletionSource 1);  asynchronous codec is done with source data  
  153. (defconstant $codecCompletionDest 2);  asynchronous codec is done with destination data  
  154.  
  155. (def-mactype :COMPLETIONPROCPTR (find-mactype :POINTER))
  156.  
  157. (defconstant $codecProgressOpen 0)
  158. (defconstant $codecProgressUpdatePercent 1)
  159. (defconstant $codecProgressClose 2)
  160.  
  161. (def-mactype :PROGRESSPROCPTR (find-mactype :POINTER))
  162.  
  163. (def-mactype :IMAGESEQUENCE (find-mactype :SIGNED-LONG))
  164.  
  165. (def-mactype :PROGRESSPROCRECORDPTR (find-mactype :POINTER))
  166. (defrecord ProgressProcRecord 
  167.    (progressProc :POINTER)
  168.    (progressRefCon :SIGNED-LONG)
  169.    )
  170.  
  171. (def-mactype :COMPLETIONPROCRECORDPTR (find-mactype :POINTER))
  172. (defrecord CompletionProcRecord 
  173.    (completionProc :POINTER)
  174.    (completionRefCon :SIGNED-LONG)
  175.    )
  176.  
  177. (def-mactype :DATAPROCRECORDPTR (find-mactype :POINTER))
  178. (defrecord DataProcRecord 
  179.    (dataProc :POINTER)
  180.    (dataRefCon :SIGNED-LONG)
  181.    )
  182.  
  183. (def-mactype :FLUSHPROCRECORDPTR (find-mactype :POINTER))
  184. (defrecord FlushProcRecord 
  185.    (flushProc :POINTER)
  186.    (flushRefCon :SIGNED-LONG)
  187.    )
  188.  
  189. ;  
  190. ;     The ImageDescription is private data which is produced when an image or sequence 
  191. ;     is compressed. It fully describes the format of the compressed data.
  192.  
  193. (def-mactype :IMAGEDESCRIPTIONPTR (find-mactype :POINTER))
  194. (def-mactype :IMAGEDESCRIPTIONHANDLE (find-mactype :HANDLE))
  195. (defrecord (ImageDescription :handle) 
  196.    (idSize :SIGNED-LONG)        ;  total size of ImageDescription including extra data ( CLUTs and other per sequence data 
  197.    (cType :OSTYPE)              ;  what kind of codec compressed this data 
  198.    (resvd1 :SIGNED-LONG)        ;  reserved for apple use 
  199.    (resvd2 :SIGNED-INTEGER)     ;  reserved for apple use 
  200.    (dataRefIndex :SIGNED-INTEGER);  set to zero 
  201.    (version :SIGNED-INTEGER)    ;  which version is this data 
  202.    (revisionLevel :SIGNED-INTEGER);  what version of that codec did this 
  203.    (vendor :SIGNED-LONG)        ;  whose  codec compressed this data 
  204.    (temporalQuality :SIGNED-LONG);  what was the temporal quality factor          
  205.    (spatialQuality :SIGNED-LONG);  what was the spatial quality factor          
  206.    (width :SIGNED-INTEGER)      ;  how many pixels wide is this data 
  207.    (height :SIGNED-INTEGER)     ;  how many pixels high is this data 
  208.    (hRes :SIGNED-LONG)          ;  horizontal resolution 
  209.    (vRes :SIGNED-LONG)          ;  vertical resolution 
  210.    (dataSize :SIGNED-LONG)      ;  if known, the size of data for this image descriptor 
  211.    (frameCount :SIGNED-INTEGER) ;  number of frames this description applies to 
  212.    (name (:ARRAY :CHARACTER 32));  name of codec ( in case not installed ) 
  213.    (depth :SIGNED-INTEGER)      ;  what depth is this data (1-32) or ( 33-40 grayscale ) 
  214.    (clutID :SIGNED-INTEGER)     ;  clut id or if 0 clut follows  or -1 if no clut 
  215.    )
  216.  
  217. ;  
  218. ;     The CodecInfo is the information returned as the codecInfo struct by a codec Component
  219. ;     to the codec manager or to the caller. It is specific to the particular codec
  220. ;     implementation and not to the codec type.
  221.  
  222. (defrecord CodecInfo 
  223.    (typeName (:ARRAY :CHARACTER 32));  name of the codec type i.e.: 'Apple Image Compression' 
  224.    (version :SIGNED-INTEGER)    ;  version of the codec data that this codec knows about 
  225.    (revisionLevel :SIGNED-INTEGER);  revision level of this codec i.e: 0x00010001 (1.0.1) 
  226.    (vendor :SIGNED-LONG)        ;  Maker of this codec i.e: 'appl' 
  227.    (decompressFlags :SIGNED-LONG);  codecInfo flags for decompression capabilities 
  228.    (compressFlags :SIGNED-LONG) ;  codecInfo flags for compression capabilities 
  229.    (formatFlags :SIGNED-LONG)   ;  codecInfo flags for compression format details 
  230.    (compressionAccuracy :CHARACTER);  measure (1-255) of accuracy of this codec for compress (0 if unknown) 
  231.    (decompressionAccuracy :CHARACTER);  measure (1-255) of accuracy of this codec for decompress (0 if unknown) 
  232.    (compressionSpeed :SIGNED-INTEGER);  ( millisecs for compressing 320x240 on base mac II) (0 if unknown) 
  233.    (decompressionSpeed :SIGNED-INTEGER);  ( millisecs for decompressing 320x240 on mac II)(0 if unknown) 
  234.    (compressionLevel :CHARACTER);  measure (1-255) of compression level of this codec (0 if unknown) 
  235.    (resvd :CHARACTER)           ;  pad 
  236.    (minimumHeight :SIGNED-INTEGER);  minimum height of image (block size) 
  237.    (minimumWidth :SIGNED-INTEGER);  minimum width of image (block size) 
  238.    (decompressPipelineLatency :SIGNED-INTEGER);  in milliseconds ( for asynchronous codecs ) 
  239.    (compressPipelineLatency :SIGNED-INTEGER);  in milliseconds ( for asynchronous codecs ) 
  240.    (privateData :SIGNED-LONG)
  241.    )
  242.  
  243. ;  Table used for fast dithering. 
  244. (def-mactype :DTABPTR (find-mactype :POINTER))
  245. (def-mactype :DTABHANDLE (find-mactype :HANDLE))
  246. (defrecord (DitherTable :handle) 
  247.    (tag :SIGNED-LONG)
  248.    (seed :SIGNED-LONG)
  249.    (reserved :SIGNED-LONG)
  250.    (data (:ARRAY :CHARACTER 1))
  251.    )
  252.  
  253. ;  Name list returned by GetCodecNameList. 
  254. (defrecord CodecNameSpec 
  255.    (codec (:POINTER :COMPONENTRECORD))
  256.    (cType :OSTYPE)
  257.    (typeName (:ARRAY :CHARACTER 32))
  258.    (name :HANDLE)
  259.    )
  260.  
  261. (def-mactype :CODECNAMESPECLISTPTR (find-mactype :POINTER))
  262. (defrecord CodecNameSpecList 
  263.    (count :SIGNED-INTEGER)
  264.    (list (:ARRAY :CODECNAMESPEC 1))
  265.    )
  266.  
  267. ;   Matrix stuff  
  268. (def-mactype :MATRIXRECORDPTR (find-mactype :POINTER))
  269. (defrecord MatrixRecord 
  270.    (matrix (:ARRAY :SIGNED-LONG 3 3))
  271.    )
  272.  
  273. (defrecord FixedPoint 
  274.    (x :SIGNED-LONG)
  275.    (y :SIGNED-LONG)
  276.    )
  277.  
  278. (defrecord FixedRect 
  279.    (left :SIGNED-LONG)
  280.    (top :SIGNED-LONG)
  281.    (right :SIGNED-LONG)
  282.    (bottom :SIGNED-LONG)
  283.    )
  284.  
  285.  
  286. (deftrap _CODECMANAGERVERSION ((VERSION (:POINTER :SIGNED-LONG)))
  287.    (:STACK :SIGNED-INTEGER)
  288.    (:STACK-TRAP #xAAA3 :D0 0 VERSION))
  289.  
  290. (deftrap _GETCODECNAMELIST ((LIST (:POINTER (:POINTER :CODECNAMESPECLIST))) (SHOWALL :SIGNED-INTEGER))
  291.    (:STACK :SIGNED-INTEGER)
  292.    (:STACK-TRAP #xAAA3 :D0 1 LIST SHOWALL))
  293.  
  294. (deftrap _DISPOSECODECNAMELIST ((LIST (:POINTER :CODECNAMESPECLIST)))
  295.    (:STACK :SIGNED-INTEGER)
  296.    (:STACK-TRAP #xAAA3 :D0 15 LIST))
  297.  
  298. (deftrap _GETCODECINFO ((INFO (:POINTER :CODECINFO)) (CTYPE :OSTYPE) (CODEC (:POINTER :COMPONENTRECORD)))
  299.    (:STACK :SIGNED-INTEGER)
  300.    (:STACK-TRAP #xAAA3 :D0 3 INFO CTYPE CODEC))
  301.  
  302. (deftrap _GETMAXCOMPRESSIONSIZE ((SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (COLORDEPTH :SIGNED-INTEGER) (QUALITY :SIGNED-LONG) (CTYPE :OSTYPE) (CODEC (:POINTER :COMPONENTRECORD)) (SIZE (:POINTER :SIGNED-LONG)))
  303.    (:STACK :SIGNED-INTEGER)
  304.    (:STACK-TRAP #xAAA3 :D0 4 SRC SRCRECT COLORDEPTH QUALITY CTYPE CODEC SIZE))
  305.  
  306. (deftrap _GETCOMPRESSIONTIME ((SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (COLORDEPTH :SIGNED-INTEGER) (CTYPE :OSTYPE) (CODEC (:POINTER :COMPONENTRECORD)) (SPATIALQUALITY (:POINTER :SIGNED-LONG)) (TEMPORALQUALITY (:POINTER :SIGNED-LONG)) (COMPRESSTIME (:POINTER :SIGNED-LONG)))
  307.    (:STACK :SIGNED-INTEGER)
  308.    (:STACK-TRAP #xAAA3 :D0 5 SRC SRCRECT COLORDEPTH CTYPE CODEC SPATIALQUALITY TEMPORALQUALITY COMPRESSTIME))
  309.  
  310. (deftrap _COMPRESSIMAGE ((SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (QUALITY :SIGNED-LONG) (CTYPE :OSTYPE) (DESC (:HANDLE :IMAGEDESCRIPTION)) (DATA :POINTER))
  311.    (:STACK :SIGNED-INTEGER)
  312.    (:STACK-TRAP #xAAA3 :D0 6 SRC SRCRECT QUALITY CTYPE DESC DATA))
  313.  
  314. (deftrap _FCOMPRESSIMAGE ((SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (COLORDEPTH :SIGNED-INTEGER) (QUALITY :SIGNED-LONG) (CTYPE :OSTYPE) (CODEC (:POINTER :COMPONENTRECORD)) (CLUT (:HANDLE :COLORTABLE)) (FLAGS :SIGNED-INTEGER) (BUFFERSIZE :SIGNED-LONG) (FLUSHPROC (:POINTER :FLUSHPROCRECORD)) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)) (DESC (:HANDLE :IMAGEDESCRIPTION)) (DATA :POINTER))
  315.    (:STACK :SIGNED-INTEGER)
  316.    (:STACK-TRAP #xAAA3 :D0 7 SRC SRCRECT COLORDEPTH QUALITY CTYPE CODEC CLUT FLAGS BUFFERSIZE FLUSHPROC PROGRESSPROC DESC DATA))
  317.  
  318. (deftrap _DECOMPRESSIMAGE ((DATA :POINTER) (DESC (:HANDLE :IMAGEDESCRIPTION)) (DST (:HANDLE :PIXMAP)) (SRCRECT :RECT) (DSTRECT :RECT) (MODE :SIGNED-INTEGER) (MASK (:HANDLE :REGION)))
  319.    (:STACK :SIGNED-INTEGER)
  320.    (:STACK-TRAP #xAAA3 :D0 8 DATA DESC DST SRCRECT DSTRECT MODE MASK))
  321.  
  322. (deftrap _FDECOMPRESSIMAGE ((DATA :POINTER) (DESC (:HANDLE :IMAGEDESCRIPTION)) (DST (:HANDLE :PIXMAP)) (SRCRECT :RECT) (MATRIX (:POINTER :MATRIXRECORD)) (MODE :SIGNED-INTEGER) (MASK (:HANDLE :REGION)) (MATTE (:HANDLE :PIXMAP)) (MATTERECT :RECT) (ACCURACY :SIGNED-LONG) (CODEC (:POINTER :COMPONENTRECORD)) (BUFFERSIZE :SIGNED-LONG) (DATAPROC (:POINTER :DATAPROCRECORD)) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  323.    (:STACK :SIGNED-INTEGER)
  324.    (:STACK-TRAP #xAAA3 :D0 9 DATA DESC DST SRCRECT MATRIX MODE MASK MATTE MATTERECT ACCURACY CODEC BUFFERSIZE DATAPROC PROGRESSPROC))
  325.  
  326. (deftrap _COMPRESSSEQUENCEBEGIN ((SEQID (:POINTER :SIGNED-LONG)) (SRC (:HANDLE :PIXMAP)) (PREV (:HANDLE :PIXMAP)) (SRCRECT :RECT) (PREVRECT :RECT) (COLORDEPTH :SIGNED-INTEGER) (CTYPE :OSTYPE) (CODEC (:POINTER :COMPONENTRECORD)) (SPATIALQUALITY :SIGNED-LONG) (TEMPORALQUALITY :SIGNED-LONG) (KEYFRAMERATE :SIGNED-LONG) (CLUT (:HANDLE :COLORTABLE)) (FLAGS :SIGNED-INTEGER) (DESC (:HANDLE :IMAGEDESCRIPTION)))
  327.    (:STACK :SIGNED-INTEGER)
  328.    (:STACK-TRAP #xAAA3 :D0 10 SEQID SRC PREV SRCRECT PREVRECT COLORDEPTH CTYPE CODEC SPATIALQUALITY TEMPORALQUALITY KEYFRAMERATE CLUT FLAGS DESC))
  329.  
  330. (deftrap _COMPRESSSEQUENCEFRAME ((SEQID :SIGNED-LONG) (SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (FLAGS :SIGNED-INTEGER) (DATA :POINTER) (DATASIZE (:POINTER :SIGNED-LONG)) (SIMILARITY (:POINTER :CHARACTER)) (ASYNCCOMPLETIONPROC (:POINTER :COMPLETIONPROCRECORD)))
  331.    (:STACK :SIGNED-INTEGER)
  332.    (:STACK-TRAP #xAAA3 :D0 11 SEQID SRC SRCRECT FLAGS DATA DATASIZE SIMILARITY ASYNCCOMPLETIONPROC))
  333.  
  334. (deftrap _DECOMPRESSSEQUENCEBEGIN ((SEQID (:POINTER :SIGNED-LONG)) (DESC (:HANDLE :IMAGEDESCRIPTION)) (PORT (:POINTER :CGRAFPORT)) (GDH (:HANDLE :GDEVICE)) (SRCRECT :RECT) (MATRIX (:POINTER :MATRIXRECORD)) (MODE :SIGNED-INTEGER) (MASK (:HANDLE :REGION)) (FLAGS :SIGNED-INTEGER) (ACCURACY :SIGNED-LONG) (CODEC (:POINTER :COMPONENTRECORD)))
  335.    (:STACK :SIGNED-INTEGER)
  336.    (:STACK-TRAP #xAAA3 :D0 13 SEQID DESC PORT GDH SRCRECT MATRIX MODE MASK FLAGS ACCURACY CODEC))
  337.  
  338. (deftrap _DECOMPRESSSEQUENCEFRAME ((SEQID :SIGNED-LONG) (DATA :POINTER) (INFLAGS :SIGNED-INTEGER) (OUTFLAGS (:POINTER :SIGNED-INTEGER)) (ASYNCCOMPLETIONPROC (:POINTER :COMPLETIONPROCRECORD)))
  339.    (:STACK :SIGNED-INTEGER)
  340.    (:STACK-TRAP #xAAA3 :D0 14 SEQID DATA INFLAGS OUTFLAGS ASYNCCOMPLETIONPROC))
  341.  
  342. (deftrap _SETDSEQUENCEMATRIX ((SEQID :SIGNED-LONG) (MATRIX (:POINTER :MATRIXRECORD)))
  343.    (:STACK :SIGNED-INTEGER)
  344.    (:STACK-TRAP #xAAA3 :D0 16 SEQID MATRIX))
  345.  
  346. (deftrap _SETDSEQUENCEMATTE ((SEQID :SIGNED-LONG) (MATTE (:HANDLE :PIXMAP)) (MATTERECT :RECT))
  347.    (:STACK :SIGNED-INTEGER)
  348.    (:STACK-TRAP #xAAA3 :D0 17 SEQID MATTE MATTERECT))
  349.  
  350. (deftrap _SETDSEQUENCEMASK ((SEQID :SIGNED-LONG) (MASK (:HANDLE :REGION)))
  351.    (:STACK :SIGNED-INTEGER)
  352.    (:STACK-TRAP #xAAA3 :D0 18 SEQID MASK))
  353.  
  354. (deftrap _SETDSEQUENCETRANSFERMODE ((SEQID :SIGNED-LONG) (MODE :SIGNED-INTEGER) (OPCOLOR :RGBCOLOR))
  355.    (:STACK :SIGNED-INTEGER)
  356.    (:STACK-TRAP #xAAA3 :D0 19 SEQID MODE OPCOLOR))
  357.  
  358. (deftrap _SETDSEQUENCEDATAPROC ((SEQID :SIGNED-LONG) (DATAPROC (:POINTER :DATAPROCRECORD)) (BUFFERSIZE :SIGNED-LONG))
  359.    (:STACK :SIGNED-INTEGER)
  360.    (:STACK-TRAP #xAAA3 :D0 20 SEQID DATAPROC BUFFERSIZE))
  361.  
  362. (deftrap _SETDSEQUENCEACCURACY ((SEQID :SIGNED-LONG) (ACCURACY :SIGNED-LONG))
  363.    (:STACK :SIGNED-INTEGER)
  364.    (:STACK-TRAP #xAAA3 :D0 52 SEQID ACCURACY))
  365.  
  366. (deftrap _SETDSEQUENCESRCRECT ((SEQID :SIGNED-LONG) (SRCRECT :RECT))
  367.    (:STACK :SIGNED-INTEGER)
  368.    (:STACK-TRAP #xAAA3 :D0 53 SEQID SRCRECT))
  369.  
  370. (deftrap _GETDSEQUENCEIMAGEBUFFER ((SEQID :SIGNED-LONG) (GWORLD (:POINTER (:POINTER :CGRAFPORT))))
  371.    (:STACK :SIGNED-INTEGER)
  372.    (:STACK-TRAP #xAAA3 :D0 21 SEQID GWORLD))
  373.  
  374. (deftrap _GETDSEQUENCESCREENBUFFER ((SEQID :SIGNED-LONG) (GWORLD (:POINTER (:POINTER :CGRAFPORT))))
  375.    (:STACK :SIGNED-INTEGER)
  376.    (:STACK-TRAP #xAAA3 :D0 22 SEQID GWORLD))
  377.  
  378. (deftrap _SETCSEQUENCEQUALITY ((SEQID :SIGNED-LONG) (SPATIALQUALITY :SIGNED-LONG) (TEMPORALQUALITY :SIGNED-LONG))
  379.    (:STACK :SIGNED-INTEGER)
  380.    (:STACK-TRAP #xAAA3 :D0 23 SEQID SPATIALQUALITY TEMPORALQUALITY))
  381.  
  382. (deftrap _SETCSEQUENCEPREV ((SEQID :SIGNED-LONG) (PREV (:HANDLE :PIXMAP)) (PREVRECT :RECT))
  383.    (:STACK :SIGNED-INTEGER)
  384.    (:STACK-TRAP #xAAA3 :D0 24 SEQID PREV PREVRECT))
  385.  
  386. (deftrap _SETCSEQUENCEFLUSHPROC ((SEQID :SIGNED-LONG) (FLUSHPROC (:POINTER :FLUSHPROCRECORD)) (BUFFERSIZE :SIGNED-LONG))
  387.    (:STACK :SIGNED-INTEGER)
  388.    (:STACK-TRAP #xAAA3 :D0 51 SEQID FLUSHPROC BUFFERSIZE))
  389.  
  390. (deftrap _SETCSEQUENCEKEYFRAMERATE ((SEQID :SIGNED-LONG) (KEYFRAMERATE :SIGNED-LONG))
  391.    (:STACK :SIGNED-INTEGER)
  392.    (:STACK-TRAP #xAAA3 :D0 54 SEQID KEYFRAMERATE))
  393.  
  394. (deftrap _GETCSEQUENCEPREVBUFFER ((SEQID :SIGNED-LONG) (GWORLD (:POINTER (:POINTER :CGRAFPORT))))
  395.    (:STACK :SIGNED-INTEGER)
  396.    (:STACK-TRAP #xAAA3 :D0 25 SEQID GWORLD))
  397.  
  398. (deftrap _CDSEQUENCEBUSY ((SEQID :SIGNED-LONG))
  399.    (:STACK :SIGNED-INTEGER)
  400.    (:STACK-TRAP #xAAA3 :D0 26 SEQID))
  401.  
  402. (deftrap _CDSEQUENCEEND ((SEQID :SIGNED-LONG))
  403.    (:STACK :SIGNED-INTEGER)
  404.    (:STACK-TRAP #xAAA3 :D0 27 SEQID))
  405.  
  406. (deftrap _GETCOMPRESSEDIMAGESIZE ((DESC (:HANDLE :IMAGEDESCRIPTION)) (DATA :POINTER) (BUFFERSIZE :SIGNED-LONG) (DATAPROC (:POINTER :DATAPROCRECORD)) (DATASIZE (:POINTER :SIGNED-LONG)))
  407.    (:STACK :SIGNED-INTEGER)
  408.    (:STACK-TRAP #xAAA3 :D0 28 DESC DATA BUFFERSIZE DATAPROC DATASIZE))
  409.  
  410. (deftrap _GETSIMILARITY ((SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (DESC (:HANDLE :IMAGEDESCRIPTION)) (DATA :POINTER) (SIMILARITY (:POINTER :SIGNED-LONG)))
  411.    (:STACK :SIGNED-INTEGER)
  412.    (:STACK-TRAP #xAAA3 :D0 29 SRC SRCRECT DESC DATA SIMILARITY))
  413.  
  414. (deftrap _GETIMAGEDESCRIPTIONCTABLE ((DESC (:HANDLE :IMAGEDESCRIPTION)) (CTABLE (:POINTER (:HANDLE :COLORTABLE))))
  415.    (:STACK :SIGNED-INTEGER)
  416.    (:STACK-TRAP #xAAA3 :D0 30 DESC CTABLE))
  417.  
  418. (deftrap _SETIMAGEDESCRIPTIONCTABLE ((DESC (:HANDLE :IMAGEDESCRIPTION)) (CTABLE (:HANDLE :COLORTABLE)))
  419.    (:STACK :SIGNED-INTEGER)
  420.    (:STACK-TRAP #xAAA3 :D0 31 DESC CTABLE))
  421.  
  422. (deftrap _GETIMAGEDESCRIPTIONEXTENSION ((DESC (:HANDLE :IMAGEDESCRIPTION)) (EXTENSION (:POINTER :HANDLE)) (IDTYPE :SIGNED-LONG) (INDEX :SIGNED-LONG))
  423.    (:STACK :SIGNED-INTEGER)
  424.    (:STACK-TRAP #xAAA3 :D0 32 DESC EXTENSION IDTYPE INDEX))
  425.  
  426. (deftrap _SETIMAGEDESCRIPTIONEXTENSION ((DESC (:HANDLE :IMAGEDESCRIPTION)) (EXTENSION :HANDLE) (IDTYPE :SIGNED-LONG))
  427.    (:STACK :SIGNED-INTEGER)
  428.    (:STACK-TRAP #xAAA3 :D0 33 DESC EXTENSION IDTYPE))
  429.  
  430. (deftrap _FINDCODEC ((CTYPE :OSTYPE) (SPECCODEC (:POINTER :COMPONENTRECORD)) (COMPRESSOR (:POINTER (:POINTER :COMPONENTRECORD))) (DECOMPRESSOR (:POINTER (:POINTER :COMPONENTRECORD))))
  431.    (:STACK :SIGNED-INTEGER)
  432.    (:STACK-TRAP #xAAA3 :D0 35 CTYPE SPECCODEC COMPRESSOR DECOMPRESSOR))
  433.  
  434. (deftrap _COMPRESSPICTURE ((SRCPICTURE (:HANDLE :PICTURE)) (DSTPICTURE (:HANDLE :PICTURE)) (QUALITY :SIGNED-LONG) (CTYPE :OSTYPE))
  435.    (:STACK :SIGNED-INTEGER)
  436.    (:STACK-TRAP #xAAA3 :D0 36 SRCPICTURE DSTPICTURE QUALITY CTYPE))
  437.  
  438. (deftrap _FCOMPRESSPICTURE ((SRCPICTURE (:HANDLE :PICTURE)) (DSTPICTURE (:HANDLE :PICTURE)) (COLORDEPTH :SIGNED-INTEGER) (CLUT (:HANDLE :COLORTABLE)) (QUALITY :SIGNED-LONG) (DODITHER :SIGNED-INTEGER) (COMPRESSAGAIN :SIGNED-INTEGER) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)) (CTYPE :OSTYPE) (CODEC (:POINTER :COMPONENTRECORD)))
  439.    (:STACK :SIGNED-INTEGER)
  440.    (:STACK-TRAP #xAAA3 :D0 37 SRCPICTURE DSTPICTURE COLORDEPTH CLUT QUALITY DODITHER COMPRESSAGAIN PROGRESSPROC CTYPE CODEC))
  441.  
  442. (deftrap _COMPRESSPICTUREFILE ((SRCREFNUM :SIGNED-INTEGER) (DSTREFNUM :SIGNED-INTEGER) (QUALITY :SIGNED-LONG) (CTYPE :OSTYPE))
  443.    (:STACK :SIGNED-INTEGER)
  444.    (:STACK-TRAP #xAAA3 :D0 38 SRCREFNUM DSTREFNUM QUALITY CTYPE))
  445.  
  446. (deftrap _FCOMPRESSPICTUREFILE ((SRCREFNUM :SIGNED-INTEGER) (DSTREFNUM :SIGNED-INTEGER) (COLORDEPTH :SIGNED-INTEGER) (CLUT (:HANDLE :COLORTABLE)) (QUALITY :SIGNED-LONG) (DODITHER :SIGNED-INTEGER) (COMPRESSAGAIN :SIGNED-INTEGER) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)) (CTYPE :OSTYPE) (CODEC (:POINTER :COMPONENTRECORD)))
  447.    (:STACK :SIGNED-INTEGER)
  448.    (:STACK-TRAP #xAAA3 :D0 39 SRCREFNUM DSTREFNUM COLORDEPTH CLUT QUALITY DODITHER COMPRESSAGAIN PROGRESSPROC CTYPE CODEC))
  449.  
  450. (deftrap _GETPICTUREFILEHEADER ((REFNUM :SIGNED-INTEGER) (FRAME (:POINTER :RECT)) (HEADER (:POINTER :OPENCPICPARAMS)))
  451.    (:STACK :SIGNED-INTEGER)
  452.    (:STACK-TRAP #xAAA3 :D0 40 REFNUM FRAME HEADER))
  453.  
  454. (deftrap _DRAWPICTUREFILE ((REFNUM :SIGNED-INTEGER) (FRAME :RECT) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  455.    (:STACK :SIGNED-INTEGER)
  456.    (:STACK-TRAP #xAAA3 :D0 41 REFNUM FRAME PROGRESSPROC))
  457.  
  458. (deftrap _DRAWTRIMMEDPICTURE ((SRCPICTURE (:HANDLE :PICTURE)) (FRAME :RECT) (TRIMMASK (:HANDLE :REGION)) (DODITHER :SIGNED-INTEGER) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  459.    (:STACK :SIGNED-INTEGER)
  460.    (:STACK-TRAP #xAAA3 :D0 46 SRCPICTURE FRAME TRIMMASK DODITHER PROGRESSPROC))
  461.  
  462. (deftrap _DRAWTRIMMEDPICTUREFILE ((SRCREFNUM :SIGNED-INTEGER) (FRAME :RECT) (TRIMMASK (:HANDLE :REGION)) (DODITHER :SIGNED-INTEGER) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  463.    (:STACK :SIGNED-INTEGER)
  464.    (:STACK-TRAP #xAAA3 :D0 47 SRCREFNUM FRAME TRIMMASK DODITHER PROGRESSPROC))
  465.  
  466. (deftrap _MAKETHUMBNAILFROMPICTURE ((PICTURE (:HANDLE :PICTURE)) (COLORDEPTH :SIGNED-INTEGER) (THUMBNAIL (:HANDLE :PICTURE)) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  467.    (:STACK :SIGNED-INTEGER)
  468.    (:STACK-TRAP #xAAA3 :D0 42 PICTURE COLORDEPTH THUMBNAIL PROGRESSPROC))
  469.  
  470. (deftrap _MAKETHUMBNAILFROMPICTUREFILE ((REFNUM :SIGNED-INTEGER) (COLORDEPTH :SIGNED-INTEGER) (THUMBNAIL (:HANDLE :PICTURE)) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  471.    (:STACK :SIGNED-INTEGER)
  472.    (:STACK-TRAP #xAAA3 :D0 43 REFNUM COLORDEPTH THUMBNAIL PROGRESSPROC))
  473.  
  474. (deftrap _MAKETHUMBNAILFROMPIXMAP ((SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (COLORDEPTH :SIGNED-INTEGER) (THUMBNAIL (:HANDLE :PICTURE)) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  475.    (:STACK :SIGNED-INTEGER)
  476.    (:STACK-TRAP #xAAA3 :D0 44 SRC SRCRECT COLORDEPTH THUMBNAIL PROGRESSPROC))
  477.  
  478. (deftrap _TRIMIMAGE ((DESC (:HANDLE :IMAGEDESCRIPTION)) (INDATA :POINTER) (INBUFFERSIZE :SIGNED-LONG) (DATAPROC (:POINTER :DATAPROCRECORD)) (OUTDATA :POINTER) (OUTBUFFERSIZE :SIGNED-LONG) (FLUSHPROC (:POINTER :FLUSHPROCRECORD)) (TRIMRECT (:POINTER :RECT)) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  479.    (:STACK :SIGNED-INTEGER)
  480.    (:STACK-TRAP #xAAA3 :D0 45 DESC INDATA INBUFFERSIZE DATAPROC OUTDATA OUTBUFFERSIZE FLUSHPROC TRIMRECT PROGRESSPROC))
  481.  
  482. (deftrap _CONVERTIMAGE ((SRCDD (:HANDLE :IMAGEDESCRIPTION)) (SRCDATA :POINTER) (COLORDEPTH :SIGNED-INTEGER) (CLUT (:HANDLE :COLORTABLE)) (ACCURACY :SIGNED-LONG) (QUALITY :SIGNED-LONG) (CTYPE :OSTYPE) (CODEC (:POINTER :COMPONENTRECORD)) (DSTDD (:HANDLE :IMAGEDESCRIPTION)) (DSTDATA :POINTER))
  483.    (:STACK :SIGNED-INTEGER)
  484.    (:STACK-TRAP #xAAA3 :D0 48 SRCDD SRCDATA COLORDEPTH CLUT ACCURACY QUALITY CTYPE CODEC DSTDD DSTDATA))
  485.  
  486. (deftrap _MAKEDITHERTABLE ((GDEV (:HANDLE :GDEVICE)) (DITHERTABLE (:POINTER (:HANDLE :DITHERTABLE))))
  487.    (:STACK :SIGNED-INTEGER)
  488.    (:STACK-TRAP #xAAA3 :D0 49 GDEV DITHERTABLE))
  489.  
  490. (deftrap _DISPOSEDITHERTABLE ((DITHERTABLE (:HANDLE :DITHERTABLE)))
  491.    (:STACK :SIGNED-INTEGER)
  492.    (:STACK-TRAP #xAAA3 :D0 50 DITHERTABLE))
  493.  
  494. (deftrap _STDPIX ((SRC (:POINTER :PIXMAP)) (SRCRECT :RECT) (MATRIX (:POINTER :MATRIXRECORD)) (MODE :SIGNED-INTEGER) (MASK (:HANDLE :REGION)) (MATTE (:POINTER :PIXMAP)) (MATTERECT :RECT) (FLAGS :SIGNED-INTEGER))
  495.    (:STACK :SIGNED-INTEGER)
  496.    (:STACK-TRAP #xAAA3 :D0 12 SRC SRCRECT MATRIX MODE MASK MATTE MATTERECT FLAGS))
  497.  
  498.  
  499. (deftrap _GETCOMPRESSEDPIXMAPINFO ((PIX (:POINTER :PIXMAP)) (DESC (:POINTER (:HANDLE :IMAGEDESCRIPTION))) (DATA (:POINTER :POINTER)) (BUFFERSIZE (:POINTER :SIGNED-LONG)) (DATAPROC (:POINTER :DATAPROCRECORD)) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  500.    (:STACK :SIGNED-INTEGER)
  501.    (:STACK-TRAP #xAAA3 :D0 55 PIX DESC DATA BUFFERSIZE DATAPROC PROGRESSPROC))
  502.  
  503. (deftrap _SETCOMPRESSEDPIXMAPINFO ((PIX (:POINTER :PIXMAP)) (DESC (:HANDLE :IMAGEDESCRIPTION)) (DATA :POINTER) (BUFFERSIZE :SIGNED-LONG) (DATAPROC (:POINTER :DATAPROCRECORD)) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  504.    (:STACK :SIGNED-INTEGER)
  505.    (:STACK-TRAP #xAAA3 :D0 56 PIX DESC DATA BUFFERSIZE DATAPROC PROGRESSPROC))
  506.  
  507. (defconstant $identityMatrixType #X0);  result if matrix is identity 
  508. (defconstant $translateMatrixType #X1);  result if matrix translates 
  509. (defconstant $scaleMatrixType #X2);  result if matrix scales 
  510. (defconstant $scaleTranslateMatrixType #X3);  result if matrix scales and translates 
  511. (defconstant $linearMatrixType #X4);  result if matrix is general 2 x 2 
  512. (defconstant $linearTranslateMatrixType #X5);  result if matrix is general 2 x 2 and translates 
  513. (defconstant $perspectiveMatrixType #X6);  result if matrix is general 3 x 3 
  514.  
  515. (def-mactype :MATRIXFLAGS (find-mactype :CHARACTER))
  516.  
  517.  
  518. (deftrap _GETMATRIXTYPE ((M :MATRIXRECORD))
  519.    (:STACK :SIGNED-INTEGER)
  520.    (:STACK-TRAP #xABC2 :D0 20 M))
  521.  
  522. (deftrap _COPYMATRIX ((M1 :MATRIXRECORD) (M2 (:POINTER :MATRIXRECORD)))
  523.    NIL
  524.    (:STACK-TRAP #xABC2 :D0 32 M1 M2))
  525.  
  526. (deftrap _EQUALMATRIX ((M1 :MATRIXRECORD) (M2 :MATRIXRECORD))
  527.    (:STACK :BOOLEAN)
  528.    (:STACK-TRAP #xABC2 :D0 33 M1 M2))
  529.  
  530. (deftrap _SETIDENTITYMATRIX ((MATRIX (:POINTER :MATRIXRECORD)))
  531.    NIL
  532.    (:STACK-TRAP #xABC2 :D0 21 MATRIX))
  533.  
  534. (deftrap _TRANSLATEMATRIX ((M (:POINTER :MATRIXRECORD)) (DELTAH :SIGNED-LONG) (DELTAV :SIGNED-LONG))
  535.    NIL
  536.    (:STACK-TRAP #xABC2 :D0 25 M DELTAH DELTAV))
  537.  
  538. (deftrap _ROTATEMATRIX ((M (:POINTER :MATRIXRECORD)) (DEGREES :SIGNED-LONG) (ABOUTX :SIGNED-LONG) (ABOUTY :SIGNED-LONG))
  539.    NIL
  540.    (:STACK-TRAP #xABC2 :D0 22 M DEGREES ABOUTX ABOUTY))
  541.  
  542. (deftrap _SCALEMATRIX ((M (:POINTER :MATRIXRECORD)) (SCALEX :SIGNED-LONG) (SCALEY :SIGNED-LONG) (ABOUTX :SIGNED-LONG) (ABOUTY :SIGNED-LONG))
  543.    NIL
  544.    (:STACK-TRAP #xABC2 :D0 23 M SCALEX SCALEY ABOUTX ABOUTY))
  545.  
  546. (deftrap _SKEWMATRIX ((M (:POINTER :MATRIXRECORD)) (SKEWX :SIGNED-LONG) (SKEWY :SIGNED-LONG) (ABOUTX :SIGNED-LONG) (ABOUTY :SIGNED-LONG))
  547.    NIL
  548.    (:STACK-TRAP #xABC2 :D0 24 M SKEWX SKEWY ABOUTX ABOUTY))
  549.  
  550. (deftrap _TRANSFORMFIXEDPOINTS ((M :MATRIXRECORD) (FPT (:POINTER :FIXEDPOINT)) (COUNT :SIGNED-LONG))
  551.    (:STACK :SIGNED-INTEGER)
  552.    (:STACK-TRAP #xABC2 :D0 34 M FPT COUNT))
  553.  
  554. (deftrap _TRANSFORMPOINTS ((MP :MATRIXRECORD) (PT1 (:POINTER :POINT)) (COUNT :SIGNED-LONG))
  555.    (:STACK :SIGNED-INTEGER)
  556.    (:STACK-TRAP #xABC2 :D0 35 MP PT1 COUNT))
  557.  
  558. (deftrap _TRANSFORMFIXEDRECT ((M :MATRIXRECORD) (FR (:POINTER :FIXEDRECT)) (FPP (:POINTER :FIXEDPOINT)))
  559.    (:STACK :BOOLEAN)
  560.    (:STACK-TRAP #xABC2 :D0 36 M FR FPP))
  561.  
  562. (deftrap _TRANSFORMRECT ((M :MATRIXRECORD) (R (:POINTER :RECT)) (FPP (:POINTER :FIXEDPOINT)))
  563.    (:STACK :BOOLEAN)
  564.    (:STACK-TRAP #xABC2 :D0 37 M R FPP))
  565.  
  566. (deftrap _TRANSFORMRGN ((MP :MATRIXRECORD) (R (:HANDLE :REGION)))
  567.    (:STACK :SIGNED-INTEGER)
  568.    (:STACK-TRAP #xAAA3 :D0 57 MP R))
  569.  
  570. (deftrap _INVERSEMATRIX ((M :MATRIXRECORD) (IM (:POINTER :MATRIXRECORD)))
  571.    (:STACK :BOOLEAN)
  572.    (:STACK-TRAP #xABC2 :D0 28 M IM))
  573.  
  574. (deftrap _CONCATMATRIX ((A :MATRIXRECORD) (B (:POINTER :MATRIXRECORD)))
  575.    NIL
  576.    (:STACK-TRAP #xABC2 :D0 27 A B))
  577.  
  578. (deftrap _RECTMATRIX ((MATRIX (:POINTER :MATRIXRECORD)) (SRCRECT :RECT) (DSTRECT :RECT))
  579.    NIL
  580.    (:STACK-TRAP #xABC2 :D0 30 MATRIX SRCRECT DSTRECT))
  581.  
  582. (deftrap _MAPMATRIX ((MATRIX (:POINTER :MATRIXRECORD)) (FROMRECT :RECT) (TORECT :RECT))
  583.    NIL
  584.    (:STACK-TRAP #xABC2 :D0 29 MATRIX FROMRECT TORECT))
  585.  
  586. ;    Standard Preview  
  587.  
  588.  
  589. (deftrap _SFGETFILEPREVIEW ((WHERE :POINT) (PROMPT (:STRING 255)) (FILEFILTER :POINTER) (NUMTYPES :SIGNED-INTEGER) (TYPELIST :SFTYPELIST) (DLGHOOK :POINTER) (REPLY (:POINTER :SFREPLY)))
  590.    NIL
  591.    (:STACK-TRAP #xAAA3 :D0 65 WHERE PROMPT FILEFILTER NUMTYPES TYPELIST DLGHOOK REPLY))
  592.  
  593.  
  594. (deftrap _SFPGETFILEPREVIEW ((WHERE :POINT) (PROMPT (:STRING 255)) (FILEFILTER :POINTER) (NUMTYPES :SIGNED-INTEGER) (TYPELIST :SFTYPELIST) (DLGHOOK :POINTER) (REPLY (:POINTER :SFREPLY)) (DLGID :SIGNED-INTEGER) (FILTERPROC :POINTER))
  595.    NIL
  596.    (:STACK-TRAP #xAAA3 :D0 66 WHERE PROMPT FILEFILTER NUMTYPES TYPELIST DLGHOOK REPLY DLGID FILTERPROC))
  597.  
  598.  
  599. (deftrap _STANDARDGETFILEPREVIEW ((FILEFILTER :POINTER) (NUMTYPES :SIGNED-INTEGER) (TYPELIST :SFTYPELIST) (REPLY (:POINTER :STANDARDFILEREPLY)))
  600.    NIL
  601.    (:STACK-TRAP #xAAA3 :D0 67 FILEFILTER NUMTYPES TYPELIST REPLY))
  602.  
  603.  
  604. (deftrap _CUSTOMGETFILEPREVIEW ((FILEFILTER :POINTER) (NUMTYPES :SIGNED-INTEGER) (TYPELIST :SFTYPELIST) (REPLY (:POINTER :STANDARDFILEREPLY)) (DLGID :SIGNED-INTEGER) (WHERE :POINT) (DLGHOOK :POINTER) (FILTERPROC :POINTER) (ACTIVELIST :POINTER) (ACTIVATEPROC :POINTER) (YOURDATAPTR :POINTER))
  605.    NIL
  606.    (:STACK-TRAP #xAAA3 :D0 68 FILEFILTER NUMTYPES TYPELIST REPLY DLGID WHERE DLGHOOK FILTERPROC ACTIVELIST ACTIVATEPROC YOURDATAPTR))
  607.  
  608.  
  609. (deftrap _MAKEFILEPREVIEW ((RESREFNUM :SIGNED-INTEGER) (PROGRESS (:POINTER :PROGRESSPROCRECORD)))
  610.    (:STACK :SIGNED-INTEGER)
  611.    (:STACK-TRAP #xAAA3 :D0 69 RESREFNUM PROGRESS))
  612.  
  613.  
  614. (deftrap _ADDFILEPREVIEW ((RESREFNUM :SIGNED-INTEGER) (PREVIEWTYPE :OSTYPE) (PREVIEWDATA :HANDLE))
  615.    (:STACK :SIGNED-INTEGER)
  616.    (:STACK-TRAP #xAAA3 :D0 70 RESREFNUM PREVIEWTYPE PREVIEWDATA))
  617.  
  618. (defconstant $sfpItemPreviewAreaUser 11)
  619. (defconstant $sfpItemPreviewStaticText 12)
  620. (defconstant $sfpItemPreviewDividerUser 13)
  621. (defconstant $sfpItemCreatePreviewButton 14)
  622. (defconstant $sfpItemShowPreviewButton 15)
  623.  
  624. (def-mactype :PREVIEWRESOURCEPTR (find-mactype :POINTER))
  625. (def-mactype :PREVIEWRESOURCEHANDLE (find-mactype :HANDLE))
  626. (defrecord (PreviewResourceRecord :handle) 
  627.    (modDate :SIGNED-LONG)
  628.    (version :SIGNED-INTEGER)
  629.    (resType :OSTYPE)
  630.    (resID :SIGNED-INTEGER)
  631.    )
  632.  
  633. ; $ENDC                         ;  UsingImageCompression 
  634.  
  635. ; $IFC NOT UsingIncludes
  636.  
  637. ; $ENDC
  638.  
  639. (export '($SFPITEMSHOWPREVIEWBUTTON $SFPITEMCREATEPREVIEWBUTTON
  640.           $SFPITEMPREVIEWDIVIDERUSER $SFPITEMPREVIEWSTATICTEXT
  641.           $SFPITEMPREVIEWAREAUSER $PERSPECTIVEMATRIXTYPE
  642.           $LINEARTRANSLATEMATRIXTYPE $LINEARMATRIXTYPE
  643.           $SCALETRANSLATEMATRIXTYPE $SCALEMATRIXTYPE $TRANSLATEMATRIXTYPE
  644.           $IDENTITYMATRIXTYPE $CODECPROGRESSCLOSE $CODECPROGRESSUPDATEPERCENT
  645.           $CODECPROGRESSOPEN $CODECCOMPLETIONDEST $CODECCOMPLETIONSOURCE
  646.           $BESTCOMPRESSIONCODEC $BESTFIDELITYCODEC $BESTSPEEDCODEC $ANYCODEC
  647.           $CODECHIGHQUALITY $CODECNORMALQUALITY $CODECLOWQUALITY
  648.           $CODECMINQUALITY $CODECMAXQUALITY $CODECLOSSLESSQUALITY
  649.           $DECOMPRESSORCOMPONENTTYPE $COMPRESSORCOMPONENTTYPE
  650.           $CODECMINIMUMDATASIZE $CODECOPENERR $CODECCONDITIONERR
  651.           $CODECDATAVERSERR $CODECBADDATAERR $CODECWOULDOFFSCREENERR
  652.           $CODECABORTERR $CODECSPOOLERR $CODECIMAGEBUFERR $CODECSCREENBUFERR
  653.           $CODECSIZEERR $CODECUNIMPERR $NOCODECERR $CODECERR
  654.           $CODECFLAGUSEDIMAGEBUFFER $CODECFLAGUSEDNEWIMAGEBUFFER
  655.           $CODECFLAGLIVEGRAB $CODECFLAGONLYSCREENUPDATE $CODECFLAGFORCEKEYFRAME
  656.           $CODECFLAGUPDATEPREVIOUSCOMP $CODECFLAGDONTOFFSCREEN
  657.           $CODECFLAGWASCOMPRESSED $CODECFLAGNOSCREENUPDATE
  658.           $CODECFLAGUPDATEPREVIOUS $CODECFLAGUSESCREENBUFFER
  659.           $CODECFLAGUSEIMAGEBUFFER $CODECINFODOESLOSSLESS $CODECINFOSTORESCLUT
  660.           $CODECINFODEPTH40 $CODECINFODEPTH36 $CODECINFODEPTH34
  661.           $CODECINFODEPTH33 $CODECINFODEPTH24 $CODECINFODEPTH32
  662.           $CODECINFODEPTH16 $CODECINFODEPTH8 $CODECINFODEPTH4 $CODECINFODEPTH2
  663.           $CODECINFODEPTH1 $CODECINFODOESSPOOL $CODECINFODOESRECOMPRESS
  664.           $CODECINFODOESWARP $CODECINFODOESBLEND $CODECINFODOESSKEW
  665.           $CODECINFODOESVERTFLIP $CODECINFODOESHORIZFLIP $CODECINFODOESROTATE
  666.           $CODECINFODOESQUARTER $CODECINFODOESHALF $CODECINFODOESQUAD
  667.           $CODECINFODOESDOUBLE $CODECINFODOESTEMPORAL $CODECINFODOESMASK
  668.           $CODECINFODOESSHRINK $CODECINFODOESSTRETCH $CODECINFODOESDITHER
  669.           $CODECINFODOES32 $CODECINFODOES16 $CODECINFODOES8 $CODECINFODOES4
  670.           $CODECINFODOES2 $CODECINFODOES1 $GESTALTCOMPRESSIONMGR))
  671. (provide-interface 'ImageCompression)